www.gusucode.com > 星梦奇缘交友网 1 > 星梦奇缘交友网 1.0源码程序/love/Announce.asp
<!--#include file=conn.asp-->
<!--#include file=config.asp-->
<!--#include file=const.asp-->
<!--#include file=char.asp-->
<%
'=========================================================
' File: Announce.asp
' Version:3.0
' Date: 2005-11-2
' Script Written by xmrxw
'=========================================================
' Copyright (C) 2004,2005 Xmrxw.Com All rights reserved.
' Web: http://www.xmrxw.com,http://www.xmzxw.com
' Email: info@mssky.com,super@mssky.com
' QQ：10689579 Msn：zdlmicr@hotmail.com
'=========================================================
response.buffer=true
stats="网站公告"
call nav()
if founderr then
call Mslove_error()
else
call tumppages()'翻页处理
strFileName="Announce.asp?action="
Select Case Trim(Request("action"))
Case "add"
Stats="发布公告"
Call add()
Case "addsave"
Stats="保存公告"
Call addsave()
Case "view"
Stats="查看公告"
Call view()
Case "清空"
Stats="清空公告"
Call AllDeldata()
Case "删除"
Stats="删除公告"
Call Deldata()
Case else
call main()
end Select
if founderr then call Mslove_error()
end if
call activeonline()
call footer()
sub main()
menu()%>
<TABLE id=Table2 cellSpacing=0 cellPadding=0 width=750 align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top><FONT face=宋体>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD colSpan=3 height=3></TD>
</TR>
<TR>
<TD width=8><IMG height=8 src="skins/21cn/s-main-1.gif"
width=8></TD>
<TD background=skins/21cn/s-main-bg.gif height=8></TD>
<TD width=8><IMG height=8 src="skins/21cn/s-main-2.gif"
width=8></TD>
</TR>
<TR>
<TD background=skins/21cn/s-main-4bg.gif> </TD>
<TD vAlign=top bgColor=#ffffff><TABLE cellSpacing=4 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD align=middle width=15 height=26><IMG height=17
src="skins/21cn/icon-m3.gif" width=5></TD>
<TD> <TABLE height=30 border=0>
<TBODY>
<TR>
<TD><STRONG><%=stats%>列表 </STRONG></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align=middle background=skins/21cn/hr-line.gif colSpan=2
height=3></TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" align=center cellpadding=0 cellspacing=0>
<form action="Announce.asp" method=POST name="theForm">
<tr align="center">
<td width="8%" height="25" class=tablebody2>ID</td>
<td width="55%" class=tablebody2>主 题</td>
<td width="13%" class=tablebody2>发布者</td>
<td width="17%" class=tablebody2>时间</td>
<td width="7%" class=tablebody2>操作</td>
</tr>
<%dim ID
set rs=server.createobject("adodb.recordset")
sql="select ID,Title,Addtime,username from Ms_News where Typeid=0 order by addtime desc"
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then
call rspages()
do while not rs.eof and page_count<Cint(MaxPerPage)
ID=rs("ID")%>
<tr align="center">
<td align="center" class=tablebody1><%=rs(0)%></td>
<td align="left" class=tablebody1><a href=?action=view&id=<%=id%> title=查看信息><%=rs("Title")%></a></td>
<td align="center" class=tablebody1><a href=dispuser.asp?username=<%=rs("Username")%>><%=rs("Username")%></a></td>
<td align="center" class=tablebody1><%=rs("Addtime")%></td>
<td align="center" class=tablebody1><input type=checkbox name=id value=<%=ID%>></td>
</tr>
<%page_count=page_count+1
rs.movenext
loop
else
response.Write("<tr align=""center""> <td colspan=""5"" align=""left"" class=tablebody2>当前没有任何公告。</td></tr>")
end if
if totalrec>0 then
%>
<tr align="center">
<td colspan="5" align="left" class=tablebody2> <%call showpage(strFileName)%> </td>
</tr>
<%end if%>
<tr align="right">
<td colspan="5" class=tablebody1> <input type=checkbox name=chkall value=on onclick="CheckAll(this.form)">
选中所有显示记录
<input type=submit name=action onclick="{if(confirm('确定清空所有记录吗?')){this.document.theForm.submit();return true;}return false;}" value="清空" <%if not (master or Supermaster or Standmaster) then response.write "disabled"%>>
<input type=submit name=action onclick="{if(confirm('确定删除选定的记录吗?')){this.document.theForm.submit();return true;}return false;}" value="删除" <%if not (master or Supermaster or Standmaster) then response.write "disabled"%>>
</td>
</tr>
</form>
</table> </TD>
<TD background=skins/21cn/s-main-2bg.gif></TD>
</TR>
<TR>
<TD><IMG height=8 src="skins/21cn/s-main-4.gif" width=8></TD>
<TD background=skins/21cn/s-main-3bg.gif height=8></TD>
<TD><IMG height=8 src="skins/21cn/s-main-3.gif"
width=8></TD>
</TR>
</TBODY>
</TABLE>
</FONT></TD>
</TR>
</TBODY>
</TABLE>
<%
end sub
sub add()
menu()
if not (master or Supermaster or Standmaster) then
Errmsg=Errmsg+"<br>"+"<li>你的等级不够，不能发布公告。"
founderr=true
exit sub
end if%>
<TABLE id=Table2 cellSpacing=0 cellPadding=0 width=750 align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top><FONT face=宋体>
<TABLE cellSpacing=0 cellPadding=0 width="100%" align=center
border=0>
<TBODY>
<TR>
<TD colSpan=3 height=3></TD>
</TR>
<TR>
<TD width=8><IMG height=8 src="skins/21cn/s-main-1.gif"
width=8></TD>
<TD background=skins/21cn/s-main-bg.gif height=8></TD>
<TD width=8><IMG height=8 src="skins/21cn/s-main-2.gif"
width=8></TD>
</TR>
<TR>
<TD background=skins/21cn/s-main-4bg.gif> </TD>
<TD vAlign=top bgColor=#ffffff><TABLE cellSpacing=4 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD align=middle width=15 height=26><IMG height=17
src="skins/21cn/icon-m3.gif" width=5></TD>
<TD> <TABLE height=30 border=0>
<TBODY>
<TR>
<TD><STRONG><SPAN class=title2
id=lblSubject><%=stats%></SPAN> </STRONG></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align=middle background=skins/21cn/hr-line.gif colSpan=2
height=3></TD>
</TR>
</TBODY>
</TABLE>
<table width="100%" border="0" align=center cellpadding=0 cellspacing=0>
<form action="?action=addsave" method=POST name="theForm">
<tr>
<td width="22%" height="29" align="right">用户名：</td>
<td width="78%" class=tablebody1><input disabled value="<%=trim(membername)%>" name="Postname" size="20">
<input type="hidden" value="<%=trim(membername)%>" name="Postname">
</td>
</tr>
<tr>
<td width="22%" height="32" align="right" class=tablebody1>标 题：</td>
<td class=tablebody1><input name="title" type="text" id="title2"></td>
</tr>
<tr>
<td height="25" align="right" class=tablebody1>内 容：</td>
<td height="25" class=tablebody1><textarea name="Content" cols="60" rows="5" id="textarea"></textarea>
<a style=cursor:hand onclick="if (parseInt(IDContent.rows)-3>0)(IDContent.rows=parseInt(IDContent.rows)-3)"><img src="Skins/Default/minus.gif" unselectable="on" border='0'></a>
<a style=cursor:hand onclick="if (parseInt(IDContent.rows)+3>3)(IDContent.rows=parseInt(IDContent.rows)+3)"><img src="Skins/Default/plus.gif" unselectable="on" border='0'></a></td>
</tr>
<tr align="center">
<td height="27" colspan="2" class=tablebody1> <input class=2 type=Submit value="保存" name=Submit>
<input class=2 type="reset" name="Clear" value="清除"></td>
</tr>
</form>
</table> </TD>
<TD background=skins/21cn/s-main-2bg.gif></TD>
</TR>
<TR>
<TD><IMG height=8 src="skins/21cn/s-main-4.gif" width=8></TD>
<TD background=skins/21cn/s-main-3bg.gif height=8></TD>
<TD><IMG height=8 src="skins/21cn/s-main-3.gif"
width=8></TD>
</TR>
</TBODY>
</TABLE>
</FONT></TD>
</TR>
</TBODY>
</TABLE>
<%
end sub
sub addsave()''保存留言
if not (master or Supermaster or Standmaster) then
Errmsg=Errmsg+"<br>"+"<li>你的等级不够，不能发布公告。"
founderr=true
end if
dim Title,Content,touser,postname
Title=checkStr(trim(request("Title")))
Content=checkStr(trim(request("Content")))
Postname=checkStr(trim(request("Postname")))
if Title="" then
errmsg=errmsg+"<br>"+"<li>标题不能为空。"
founderr=true
end if
if Content="" then
errmsg=errmsg+"<br>"+"<li>内容不能为空。"
founderr=true
end if
if Postname="" then
errmsg=errmsg+"<br>"+"<li>公告用户名不能为空。"
founderr=true
end if
if founderr=true then exit sub
conn.execute("Insert into Ms_News (Title,Content,Username,Addtime,Typeid) VALUES ('"&Title&"','"&Content&"','"&Postname&"','"&now()&"',0)")
sucmsg=sucmsg+"<br>"+"<li><b>您已经成功发布公告信息。"
call Mslove_suc()
end sub
sub view()''查看公告信息
dim id
id=checkStr(trim(request("id")))
if id="" or not isInteger(id) then
Errmsg=Errmsg+"<br>"+"<li>参数错误。"
founderr=true
exit sub
else
id=Clng(id)
end if
menu()
set rs=server.createobject("adodb.recordset")
sql="select Title,Content,Addtime,Username from Ms_News where id="&id&""
rs.Open sql,conn,1,1
if not (rs.eof and rs.bof) then%>
<TABLE id=Table2 cellSpacing=0 cellPadding=0 width=750 align=center
bgColor=#ffffff border=0>
<TBODY>
<TR>
<TD vAlign=top><FONT face=宋体>
<TABLE id=Table11 cellSpacing=0 cellPadding=0 width="90%" align=center
border=0>
<TBODY>
<TR>
<TD colSpan=3 height=3></TD>
</TR>
<TR>
<TD width=8><IMG height=8 src="skins/21cn/s-main-1.gif"
width=8></TD>
<TD background=skins/21cn/s-main-bg.gif height=8></TD>
<TD width=8><IMG height=8 src="skins/21cn/s-main-2.gif"
width=8></TD>
</TR>
<TR>
<TD background=skins/21cn/s-main-4bg.gif> </TD>
<TD vAlign=top bgColor=#ffffff> <TABLE id=Table12 cellSpacing=4 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD align=middle width=15 height=26><IMG height=17
src="skins/21cn/icon-m3.gif" width=5></TD>
<TD> <TABLE height=30 border=0>
<TBODY>
<TR>
<TD width="80%"><STRONG><SPAN class=title2
id=lblSubject><%=rs(0)%></SPAN> </STRONG></TD>
<TD style="COLOR: gray" vAlign=bottom noWrap align=right
width="20%">发布时间:<SPAN
id=lblCreateDate><%=rs(2)%></SPAN></TD>
</TR>
</TBODY>
</TABLE></TD>
</TR>
<TR>
<TD align=middle background=skins/21cn/hr-line.gif colSpan=2
height=3></TD>
</TR>
</TBODY>
</TABLE>
<TABLE id=Table13 cellSpacing=4 cellPadding=0 width="100%"
border=0>
<TBODY>
<TR>
<TD style="FONT-SIZE: 10.5pt; LINE-HEIGHT: 20pt" align=left
height=20><%=rs(1)%></TD>
</TR>
<TR>
<TD style="FONT-SIZE: 10.5pt; LINE-HEIGHT: 20pt" align=middle
height=20><INPUT name="button" type=button onclick=javascript:window.close() value="关 闭"></TD>
</TR>
</TBODY>
</TABLE></TD>
<TD background=skins/21cn/s-main-2bg.gif></TD>
</TR>
<TR>
<TD><IMG height=8 src="skins/21cn/s-main-4.gif" width=8></TD>
<TD background=skins/21cn/s-main-3bg.gif height=8></TD>
<TD><IMG height=8 src="skins/21cn/s-main-3.gif"
width=8></TD>
</TR>
</TBODY>
</TABLE>
</FONT></TD>
</TR>
</TBODY>
</TABLE>
<%end if
rs.close
end sub
sub menu()''菜单%>
<TABLE id=Table1 cellSpacing=0 cellPadding=0 width=750 align=center border=0>
<TBODY>
<TR>
<TD width=4><IMG height=75 src="skins/21cn/s-topleft.gif" width=5></TD>
<TD align=middle width=150 bgColor=#ffd331><IMG id=IMG1 height=73
src="skins/21cn/storylogo.gif" width=169></TD>
<TD width=602 align="right" valign="baseline" bgColor=#ffc100><a href=?action=add>发布公告</a>
| <a href=announce.asp>管理公告</a></TD>
<TD width=4><IMG height=75 src="skins/21cn/s-topright.gif"
width=5></TD></TR></TBODY></TABLE>
<%end sub
sub AllDeldata()''清空
if not (master or standmaster or supermaster) then
Errmsg=Errmsg+"<li>"+"只有管理员可以管理网站公告。"
Founderr=true
exit sub
end if
conn.execute("delete from Ms_News")
sucmsg=sucmsg+"<br>"+"<li>您已成功清空所有记录。"
call Mslove_suc()
end sub
sub Deldata()''删除记录
dim delid,FixID
delid=replace(request("id"),"'","")
delid=replace(delid,";","")
delid=replace(delid,"--","")
delid=replace(delid,")","")
fixid=replace(delid,",","")
fixid=Trim(replace(fixid," ",""))
If Not IsNumeric(fixid) Then
Errmsg=Errmsg+"<br><li>错误的参数。"
founderr=true
End If
if delid="" or isnull(delid) then
Errmsg=Errmsg+"<li>"+"错误的参数。"
Founderr=true
end if
if not (master or standmaster or supermaster) then
Errmsg=Errmsg+"<li>"+"只有管理员可以管理网站公告。"
Founderr=true
exit sub
end if
if founderr=true then exit sub
conn.execute("delete from Ms_News where id in("&delid&")")
sucmsg=sucmsg+"<br>"+"<li>您已成功删除所选定的记录。"
call Mslove_suc()
end sub
%>